1 REM BEFORE LOADING THIS PROGRAM YOU MUST POKE44,64:POKE16384,0:NEW
5 S0 = PEEK(46)*256 + PEEK(45) : S1 = S0-210 : S2 = S0-150 : B = 8192
30 SYS S1
100 FOR X = 0 TO 319 STEP .4
105 Y=INT(100-(100*COS(X/05))*EXP(-X/240))
150 CHAR=INT(X/8)
155 ROW=INT(Y/8)
160 LINE=Y AND 7
165 BYTE = B + ROW*320 + CHAR*8 + LINE
170 BIT=7-(X AND 7)
175 POKE BYTE,PEEK (BYTE) OR (2^BIT)
180 NEXT X
190 GET A$: IF A$<>CHR$(133) THEN 190
195 POKE 251,0 : POKE 252,32
200 FOR I = 0 TO 7 : POKE 2048+I,2^I : NEXT
205 OPEN4,4,5:CMD4:PRINT CHR$(10) CHR$(10)
210 PRINT CHR$(27)"@":PRINT CHR$(27) CHR$(51) CHR$(16)
215 PRINT"          ";
220 PRINT"------------------------------------------------------"CHR$(10)
225 FORL=0 TO 24:PRINT CHR$(27) CHR$(76) CHR$(250) CHR$(2);
230 SYS S2
265 PRINT CHR$(245) CHR$(10);
270 NEXT L:PRINT CHR$(27)"@"
275 PRINT"          ";
280 PRINT"------------------------------------------------------"
285 PRINT#4,:CLOSE4
290 END